home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / autosave.fpl < prev    next >
Text File  |  1995-07-18  |  777b  |  33 lines
  1. int timeid;
  2.  
  3. export void AutoTimeSave()
  4. {
  5.   int activeentry=GetEntryID();
  6.   int firstid=GetBufferID();
  7.   int id=firstid;
  8.   Status(0, "AutoSaving");
  9.   do {
  10.     if (ReadInfo("autosave") && ReadInfo("changes") && (ReadInfo("type")&1))
  11.       Save();
  12.     id=NextBuffer(id);
  13.     if (id == firstid)
  14.       id=0;
  15.     else
  16.       CurrentBuffer(id);
  17.   } while (id);
  18.   CurrentBuffer(activeentry);
  19. }
  20.  
  21. export void AutoTimeSaveChange()
  22. {
  23.   TimerDelete(timeid);
  24.   if (ReadInfo("autosave_time")>0)
  25.     timeid=TimerAdd(1, "AutoTimeSave();", ReadInfo("autosave_time"));
  26. }
  27.  
  28. ConstructInfo("autosave_time", "AutoTimeSaveChange();", "", "IGW(io)", "", 0, 1000000, 900);
  29. if (ReadInfo("autosave_time")>0)
  30.   timeid=TimerAdd(1, "AutoTimeSave();", ReadInfo("autosave_time"));
  31.  
  32. Hook("AutoSave", "Save();");
  33.